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JJOJ fiiutq file JS t i£j\ys\ 

_: yjVl j/ifl ijiai3\, 

Visual Basic .NET 2U 

^jjc raireJA-Aj ^J " ’ jaJlahli fiJAiJ ja (MiaZli fcaj J* 1^*a/ k+&j (&u‘ ;J1 Auuij 

(u£ Jpjj ji (>i\4Tuit jSU j ajI Uj jtuj jaj c Event Procedure uiJb-Vi uui>hj *$si\ K * j^uui 4iic$ 

. isuuigtaj *ja us 4jjQ)£siaoji aa ^ ^i^ii uia 

l uy ^ 2jj&A ftua js SjUa (o c Jul; V+W/W/> 12 jru^b )jt jg^tj 


1 g | b1 


«_S\Jjl '*) 


\ ft *V ft fl ... ~*V p y> .. l\l| 

T»* 0 -^T-V :>\LuoJI eyjb 

>s^ © e^Ji 


O 6 >juL»iJI J>l>sl S\£. 


^jjU jLj $ j^LIi £jjUj 
66 (j&J 0^ * SjOdSM J Ijj&l ^Jl£j 



ij) i^ ^Lj $ 
,3-4 jUj : 


0 

RAM 

0 -(6*211 »2ej^Ud 



sag 



I alft 

jj jjllo 53I 5j£lj gtdislart Ji jj iJL&j RAM 5jSli AJLijla *U ^Lu p^j <JS : ^U> 

. ^.jiflll dJL^ jLc lSj^sj ijmj ^jJi 4 -lcl laJK CiLJUj^Ij ^Uuuji&Ijl d^Lail Cul> ^j-a 

- 0 V - 

j DataTygesgU^JI|^ji j 

pes uGLuii £i>i > jjjuJi ^ Visual Basic. NET&>ixu 

I ulxdaDlj Juxu > 4 ajG uGLUI eifijfSj Jfij tjJjM&l SjSli 

:Visual Bssic.NET iii) i^x* >i*u >di uGLuJi £i>i 
Numeric D ata Types: 8 hp»J\611uH (>) 

ULJI J Jbklu/I tjSLoj JJt >b 

i<->ll ijjJt CiULxddl -i 

r - Byte )» ^ 

j \ ) — jvail 2 Ua^jJI CiUUddl -l_j 

imal - Single ), >j^Li lg'if >L»jj 

Character Data Types: h&A \6 UuH ( T ) 

( Char - String ) 

j>is1 W- String 9 t OuOXfill Chdr ^)>SdU41.3^ 

^j ) Ow1joj>OAj*^.J b ^j)t\) <Z*^)SS$ StflflQ fj&jwxi} 

Miscellaneous Data Types ? a^ojjJb 10 UmJ\ ( r ) 

2ui>9k)l ji 2u«^ijJt CiULlJI ULiJu^J Cl MJ ^jJLu V OULujt 

( Boolean - Date - Object ) S(j? _ aj 

( True/False - Yes/No ^ 6,xik« ^ : Boolean > 

| 6j^jO —ftl« G-jax9 — jyO ^.Utu OVii-jJ j ^Jt5tuu — c l?- 6 j^jO PiCtUIBBOX f Jtiuio • C^Sjl^^5.3tV 


Object 


fejMilutiUJlll) D a te 


Boolean 
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:«QDataType uWU q^cuul^J & ■. 

. oj±>|ol| 0 io iyo [ 4 bytes ] Jajiu C Integer ] J Id j <>>£>|o c^d j.j j.sj ip Jcjili g^j 

<&j}=iol| <axnJ| 090s [ Byte ] jLjuJ| g^j Jj!d- Range c£oa c£\oiuJ[ (QjaJI j.0 c£vaS| a^9c£sja) as] dJ g^j 

. c£sjs 9 lj| azJ| [ 255 ]j c£njLjjj 9 < c£sja(J| asJj C |ato ] j.i> jajj cu 



■olftaoll Qdilofll« 

(g®DQ©G§lDQft© ( 

iJM i*k jLu . RAM 

cjwlijjJ! j\u *Lui jruiiu V <Uj|j Aud 



jSUi j£ 4 jU£ u& 

ita Type ^ 



( &C.JJLU - 9 .&L.JJJA 





0 ♦( la ) 2 UjS Jjla 

4-UjbtJl <Ubs£, (JjL4 




► £)j£j 0? 

(fS>j 0 ^ o' ^ iftfif __ Oua^P' ^) ( ) 2U^ifc j 

■ Ubj*£j ( @ , + , - , A , |%? ) Jl4 2l*>L*il A! 

5 «..( Dim , single , as ,)d^» VB.NET 

q . 

_ CXAiUuM 6j0Of ^5 ^1$j j5-£>f {un^cJJI aj £>1/ 

: ^l>oaJy)xLMjji W9 k d^jUV 

Ahmed2017^V\ ) JPopulationOf&gypt - Spent_mony - FirstName 

: alqja* J£|Am! 1I jj&jjlvjic 4&%\ 


I IjLu 0^ ■ ^ ' 
(Jjjb* if! - ^ 

I Cil gKtl ^JbbLaJ (jl - ^ . 
CJUOlUf £ ji jUi 5 ^ ca£ 



rice 


Total 


onstants Declaration jyMI & jlUjll 

Const . 

jLuji As Constant Name ujI^i 2bUS ^ Const ^jL^i^uISj . 

:^Vis us (^j =^(*j Data Type 

( ^US3t(j4uu oldJLiJ) G~ 



Const Constant Name As Data Type = Value 

.1_t-.~- - . t .I.... 


£fi> ja\ ] ! C±A51\ ^uil 


j lujLIS) (jLnll ! | A 



Caudill aAqA / dIjuiIJI alai*| 


dy\ v b\ a Guilin lulj) 


^<s^X < g^X<s^X<s^X<^^X<s^X<^>X<s^X<s^X€^X<s^X^>Xs^X<s^X€^X<s^X<s^X<g^X<^^X<^>X^>X<^^X€^X<s^X<s^X<§^J!s^X^>X^>X<s^X<s^X©^X^^J[<si^)X<siK)X<§E)X<s^)X^E 
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O Const C_Name As String = " " 


rtiy\il l riruq\ \ String C_Narne £jul> u>ti <10 6^\1\>ql)\ 

. o\^\l\ lu\ "dupdl y>AX> dJj<vAj&V 

a(X 

© Const pi As Single = 22/7 OR Const pi As Single =3.14 

y A \\v 

<o^\j]\ 3 pi {QjjjVj Single pQ\ d^qjcut i±& p^\J\ :«w» m$\ 

22/7 OR 3.14 

© Const BirthDate As Date = #1/25/2011# 

M #1/25/2011# &i\SJl bud upups fiq Date 6 \u £<*i dl BirthDate <Iu\5 <ic- 


US (jSU ^ 2bl3S ** 



# # I j-jjti 2 b 


7“Y 



>«t jj h&iaJI iaA IaU UWhh} k. 

v 22/7 = fT c^iaifi ji«i 




fa 4 U 4 A j J 1 

2TTr^ijji ^TTr 2 5>- 
LJI Form alili 



U II <^J 

NET <UJL jIjaIw 

l ids. .Button 

^9-L>( ) ) : 


9I (0-SL>JJI 
: BU 


-Click 
Button2 j^kl jjj 



El Public: cia» Fortn^ 


J, 



lvats sub Suwonl_CLlclr(Stfval sender as Object, 

rid £ u_t> 


! Buttonl jjJ Click *I j*' 

I 


e 


vate Sub Buttori2_Clic JcIByVal sender As Object, Sy^ 


End Sub 
-End Class 


Button2 >>Vl jjJ Click *1 


C^jflUl aflofi / atliullI ata£| 



7 £t 1 a q iJ JLc. Ja-X-baJL j^-SLJI bxilJ gUu ( f ) 
Click OjJ .1 4 a > inVi {C I 


h <i ^03 ButtOn 1 _CMck ^Ij^sJLjujLj OjJIjJI 4 ^»Ljuul 4 i-jLjuulA jq ^ ff t-LLSU 9 

tLx-Ju'JI j u ~j Button2_Click OjJ-I * 1^1 flj^UuL; ojJIjJI 


^dTwk\ ftiaiJ uu»\iJ\ a Kmiill iUtm) 


^<s^X < g^X<s^X<s^X<^^X<s^X<^>X<s^X<s^X€^X<s^X^>X^^X<s^X€^X<s^X<s^X<g^X<^^X<^>X^>X<^^X€^X<s^X<s^X<§^J!s^X^>X;^>X<s^X<s^X©^I^^X<si^)X<siK)X<§E)X<s^)I^E 
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.ojJljbJf 4 ^>Luul 4 uLuiJ; jjlitl Code j^-SLJI ‘ ■ ~ s. * ButtonI CIick JjLlaj ^ (f) 

: Buttonl jJoJJi Ai£. La be 12 ^Igjjdl obi ^yLJl 


Private Sub Buttonl Click (ByVal se 
Dim Radius As Single 

Const pi As Single “22/7 
Radius “ TextBoxl.Text 

Label2.Text = pi * Radius ~ 2 

End Sub 

inder A| 

c jJlLj 

c lujIj 


— 

. (j^a ouC-Ij j-a! 

i. 1... 

_a\ 

ajJljll 4 aLuu ' ^ (Code) ij£ 



£ommu 


Single j>juulc 4 _c,$Jg Ra 
22/7 aJ iijlill 4 q < a t) j4dU4^ ^ Single 

Radius /uLU( ^ jgjj-us ^ ^ 

Label2 p <~ ^ ■»< Sbl ^ gjLJl jL^lslg pi * Radius A 2 ^jlJL ojjbJI a 

J(_>jI ft F5 ^LuLo u±c. h k ><h TL gl Start Debbuing 


L fC 

pi p-yjL lLljLj jX, 


a i::jpi 


>bjdl 




o>iljJI icurtjp 


0 >)IjJI <t>Luuuo 


S 


I^A.TAoVmvrtTV^ 



Liuulo jj ^-Lc. iaJL 


I ^g—SUf j*< a 4 g-j& 

Label 


jloill uL^u AjMjIa^u djjlill <jkl«fc 4 ujLm^> £jU 




(j-o j ^Lu (d) 

I jhUJLj 

Pi* Radius*2 

jjJJ £*JLl4 4 <7^ tg 


l*ci 6 


Private Sub 



Click (ByVal 


Radius = TextBox I ^Iext. 


Name 'pi' is not declared. 



Label2.Iext = pi * Radius * 2 

-=- iWsVWvWQ 


o 


End Sub 


(Code) Jjill yi jga^l Uaill jLj 


U-xIojU ^ qgmll (jSLo^t JJbtJ CuliSl ^1 

I j bdyf^Lff ^UjimQ wy) 

. £yltjf bdyf^Lff j 

Silo H ^Ljuuu> iuLLS^ iJL> ^ 9 $ 
4IUI9JJI9 oljjuLUl j-c 
jftAA : L& jUs-4 I ^ ^ dJLjujj j 
(j i 14 ^lc) Radius^i:U iy ic lijjtiJ) 

I o ^) i f |4 £jJL 4 pi lLuLIIIj 

Buttonl jjj g-oULI *f>>.VI ^ 



Button2 ^ ^ U^i ^UJLg 

}giM£dU j|9mi (»5 pi jdfiM jtiJS JjSjJ*<£»^ 


:ConstantseijiqjjiqVariables uij^sjaii jusi rnlH‘nnn“i 

, plSL^j J Culill jj jjjlIII JU-xj-oil 

^oUJ\]| ^ Id. 1 \ t/i 4 A -4 tt - - Hjt 
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:( gSiUttM pj 




Private Sub Button2_Cliclc(SyVal sender As Object 
Din Radius As Single 
Const pi As Single =22/7 
Radius = TextBoxl.Text 
Label2.Text = pi * Radius * 2 
End Sub 

(pi) uulullj (Radius) jiltil j%\ (Code) jjSJt i 


. e ^' >—» ■ 

J^UJl 

pi 1 Radius 

j^J\ *\>+\ 

(( Buttoi 


l!)I <*41^0 $±e pi Radius jjuOoJI & 

}ai)l )j J^J " |Mv II el)^l - A tt jde t ^ 

B 



-f 

)) 

Form 3 
m 2 , *1 Buttonl 



E] FtalDlic Class Foriti3 

Dim Radius As Single ^ 
Const pi A x Singl/\ 2/2. / 


Private Sub ButtoM ICliok tByVal a 
Radius = Textp^l.Text 
Label2Ccext = * Radius ^ 2 

End Sub ( ) n \l /Z\ 


$ 


Private 5 
Radi 
Labe 

Enffl SulA 

) 



11 V 

uttonP^Cliclc yf^ende 

TextBoxl. Text: 

Ag *. 


ext 



pi * Radius * 

li^\ 




us) 


Start Debugging, joaJ F 5 pLmjj i^k h^ihiu ^oUjiii .m Akg 

hpg ll g| /i~>l .mqII dg_aj .^ulUI jji JjliLaJI udioi Jbdg 


V^s Q ; — ■— - 


j 

< Y 

' \ EJ o 




vMJ 

1 

jixtfl ^ 



T 




T 



&>iljdl kcu 

tjjkJf 4>U« 


oyllllbuii 




\hMV\L 


r/i^Aovinmm 

^- 

-? 

* 


j j n SptjJI Ajhluk* jj Jju 44^1j 


nAod / atliullI alajiT^ 



dv\^k\ a Guilin lulj) 

















































































01112649231 


SulHI ^JuIjilldnoJI — aulicllltiillll Lnnll — &JIII L111I4JI JaiULilll n I in I in 


www.quesna.org 


altokhey@yahoo.com 


Variables al 


1 


JJ 1 


Data Type fjjj (mi 4 jj a u 4^ A 4 RAMi jsui £jLc 

I nitial Value ii-b ji jsUj$ jwbjjJi jum sLui 444 j£u u 2^4$ 

.♦ .^As ♦♦ ♦ «♦♦♦ A 

■ SWbjjJljM 

(*J|.. Jllsi^o jl^ir — iijjj«—>II doiii- , «l dcij) j*“-» v ) 

jl Lw ' *^“.‘.Tr> 1 



Byte Ct^lj jauu 2uJba)lj « jJuoJl IJLu AjjLuJUI Li^sk)I 



I Sj£l j QjSl22 


Variables Declaration ^iliga*n m at n 

. uljbutl c ojjuLa (VLi J*aG b}btU iUwi it 

. VB. Net Jjiui^uli jA j Dii 
AskiSflJ juutt feLbl > DIM 2 Ui 5 b 


( JljLujJt^oj^ ^US3tfj4uu ofdJLt) & 



Dim Variable 


± 



s Data Type [W 





jj*lLa!) ^ £)Luil 


L ^------ t - 

J ; i (ts J^') 


JjJlLaU AjjJaa 4*<u£ ! 





h\ juuA\ j-ai ! | ^uil 

o 1 ^ 

Dim F_Name As String 

String. 3^- &&<y <o$\i)\ 3 F Name puib jwuo 6\^\l\ s«» m$\ 
Dim Total_Price As Single 

.oj$\jl\3 Total_Price fm\\ Singlegpu^ ^sj a£-<G juud 6\^\1\ :«w» m$\ 

Dim Today As Date = #1 /25/2011# 

(bmd ojS! ill 3TOday /uub Date &yb de-<G jisb u£- 6\^\U :«wj m$\ 



. ;>^U 

I :c-SSJ!lLf=>ajj^lusla^jagabP^ijl,|U a J J|gjj!llS^I qC = ] ,U>LJ|,IUA|dJLac^3 

I I 

| . (jJlua ) 2Uu2dt ju»L ( (Jj C jl JJLC ) L$J JjlII jJlxXS -t 1 

■ . (a^jti 2ui>> ) "" 4aj?itt jl>'4 jjJi j^lui -r! 


C^^yt aAqA / dIjujIJI alai*| 



dv\^k\ ftiaiJ ciu»l>Jl 3 Wiki\ iUlJ) 
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mzm 
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JS^ 

am jusm? ua£* VB.NET jjs^ssm-* 

?? " ,1'^""“* J;7 ■■•"" 

l jJL) Lq-% £ -3 9 : M ftliU p • -7 « ffcju( 1 ) : 


a IbI^T 


,\ji 


iJsiil © 


j^LaJI ju^lf 

© e^Ji 

[Jjj I JUOJCJQ :,p<UfeA>J 


gig-ill ^j-LM £$_»$ fO-SLs* 

Ol^uL m gl q >ulg gc_«IJjJt ^ 



uI^JuaII pUmi! 

(Data Type) jUJ! f&a!t uljj ^Uc- 

U_Name 

(String) jai 

pUMuil jkyal 

U_B_D 

(Date)^^p^ 

£L*i) gjjti 

U_Gender 

(Boolean) i ytku 

gjiH 

J 

U_C_F 

(Integer) ^ £ 

1 n 1 

fcJill Jl>i 


Event L^J 



L2 Jj Jbjgj : 

L-jiJl <ii tt v : t»ti 


) iUMc. 1 0 0 i n j^-Sj-b j_c. o^L-C, ^ 
4 L^aJI Op* 3 * J jjJI lLuuJI 





k = 5 * 3 


•Area yvAUil (5,3) cj^j^ ojjy9cJ^l^c>£u^Li-^r©j\ 

. —.— .Liital^ ^ ff eatt a 


iiiqlll Cdjkill 

djQiinalll id lie 

drlltll Cdjkill 

Varible j%iuu» 
Property aw*. jt 

= 

0* 2 Uj£ jl " jjixLe 2 l«j& jl - Sj j^*4 2u.ffe 

Expression jj^u ^ jl - 2 um»U. 


Caudill aAqA / oUiuyi alai*| 



dv\^k\ a Guilin lulj) 


IX<sl®X<3i©X<3l©X<3l©X©I®X©I©X€X®X<aX®X<sX®X©le>X<s>I©X<sI©X@^ 











































































01112649231 


SulHI ^JuIjilldnoJI — aulicllltiillll Loull — &JIII L111I4JI JaiULilll n I in I in 


www.quesna.org 


altokhey@yahoo.com 


□ 


Utu jftiiiil My»J OlLloI tk | 


- -_&f 1 

2\ 


Jl* * 

Variable 

— 

»Jju ■*! *_rfi 

A — S 

Variable 

- 

‘l ■ 4 *_1<1 

::: 

Variable 

“ 

JJ«~ (>* < +J* 

Ex press i on 

a - s ssr 

B - A + 3 * 2 \ \J j 

Property 


Value — -4 _mUI \\ -hn 

4_udl^JI ^A-kJia uuia 

TextBoxl.Text = Egypt'’ 



V ariable ciiyn **“■" n r.; " j"*.; 1 **"* 1 mici jjjjj & j 


f&uB obi 

'Lualill 

fUwti 

qAa^^B *Qai 

TextBoxl 

Text 

U_Name 

U_Name « TextBoxl.Text 

TextBox2 

Text 

U_B_D 

U_B_D = TextBox2.Text 

RadioButtonl 

Checked 

U_Gender 

U_Gender = False 

TextBox3 

Text 

U_C_F 

U_C_F = TextBox3.Text 


a 1 ^ fm. 


0)3 I 


Private Sul Buttonl ClM(ByVal sen 
Dim C Noels String 
Dim U B D Asms 


ii C Gender is Boolean 

y» 

m 0 C F As Integer 

^ AAiijULLiAA 3 

MM 


Dim U 
Dun 





Private Suto. BtttVpnl_Cliclc ( B y ’ 
Dim U_Nanw| yra String 

Dim U 3 _D As Date 

idee As 3ooli 
F Aa Integer 


“ XextBoxl. r 
Iext3ox2,IeJ 
tadioButto 
D_Gender 
End If 
If R&diejBiittd&iUCheeleed 
tJ_Gend.er = /alae 
End If 

U_C_F = TextBox3 . Text. 

End Sub 



False Then 




: o*u$4 )6j 

( k-v ^Lii) If aue i»iaibuDRadioButon1 n£*2iSiiV Checked iuai*)i 
. True awAii U_Gender True ia2ii Checked 

. False U_Gender False ikuii Checked ludikii ujJ-i iii 
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V ariables iiiiyM -iipia^i umu ■*— 1 jjjjj ^ 

Labels t 

: ^JlDlS ij^LiyJI Label5 jl^udl (iSm Stol 4dLdb AU: Ju)j (^) 

Label5 jijuii (&£ i'ui 

1 


/Xjujlll 


<^tll I 


oUuoJI Cu^Ij 
A* © e*Ji 

0>juj\JI >l>»l iJLC 


JjLXjuUU 



Ausi LaJ) 


AutoSize 


Size,Location 

vn 

— d ih u *iLj 

JjIIIj jl — j S 

Borders tyle 

r^^dS ingle 


: s\j*W Ail*> j £)ll)l ijMjhu L Udi ( i ) 



Me.Label5.Text =UserName &vbCrLf 
UserGender & vbCrLf & UserNo 


P^&vatE Sub Butt 
REM _!,* 


:onl_Click (ByVal scr.dcr Sy3tcm.Ob]cct F | £)<yVal c As 

* i>c os** 71 " 


PjaL±fl UifrzrHajiie JL* 

X> nr: UavrfinthDate A si 

Ojl™ CJ.sei£ , &eri£le:r As Soalean 

DEm Oa , ^-i?H'iaF#>TTi1 E y As lilt t ft-e-E 1 




REM ml* ■ j . *1 . 1 I * . 

UaerN&M# “ Me .T^xcBoxl.Tfrxe 
U^ct-Si rthDate ~ Me , TcxtSo^TeKt 
IE RadioB^tconl . cr.ecki 
UAetGejiiler «■ Xnafe 

Else 

UserGender “ £”.■*. Is 

End ir 

UserHoromi1y — Me .Te* 

* ■ _ j ■ * -a ^ _I I » 1 - jp. » -a I 

Me . LabclS.TcKt — TJ rjrrMoipjc \& 

tTs e i: Gende r & %rt>c: e:L r| A, Use rW 

End Sib I / 

Remarks ^Uu^L. *_.! 



jmom 4U* Jjiai ij&ll 

Aid lit) I uljrtilt! 
pS&JbV TextXudiiJU 
Label5 ji>U)i 

tj\H uuliuM >ofl\ on iaP-\l» jsS 


.Aiiidi Form gi>wii Hliii 


( 2 L 3 jJ&JI jrU kJjjJLaji uljuutlgijj^j | & | kjjilJ^Ua 


jjjj? jIau Js ^btafaL^j vbCrLf | au&ii 

^lmJ( joju Jjjia Code jJom jIS 1:1 41Ji >si :j&t jJ&w 4 jIIS jSUj |_| ^JlAjuyj 

Code :$£ll 4$ljJa 4tU£ frdiuU 

^ 6 J 9 SDI J->tj ^5 Uj Callao 4 jU 53 ( ) ALaMall jf ( REM ) j^t yjitt 

F5 Jiw (°) 

. Start Debugging Jol 


r- -o -1 r-v cw^u 


L,^ll ^>1 J-»l J 



.Jxituuii SjULyl uIjLu ) 
JxxuJ jjkiiai flJ 


Cau^Hl aAqA / dIjuiIJI alai*I 


> -<dTwb\ ftiftiJ cu»\iJ\ 3 KmiillTuim) 


^<s^X < g^X<s^X<s^X<^^X<s^X<^>X<s^X<s^X€^X<s^X^>Xs^X<s^X€^X<s^X<s^X<g^X<^^X<^>X^>X<^^X€^X<s^X<s^X<§^J!s^X^>X^>X<s^X<s^X©^X^^JL<si^)X<siK)X<§E)X<s^)X^^! 
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E=BZ 3 



:,jh\ feuioU l&feo gtldAftM jdui ^ 

Ji Cy» -> 

mfjtuuii 1 -t 

.pj^Jl <JJ jWJl p-* y -t 



5+3*2 


,h* 3uuU»> 


u>iji &)i> ^ 


2>j1 « c f i <Ui 4 r X$i ilhij U&i 

(5+3) * 2 diuyjalV&i&j uu\qd\ \isjpq \i\ ul)q [11] dPau)\ fcuipj ai£ to® ,tn \lq\ oyjp]\ Oilae- mi ,ojj 

.[16] <iS^u)\ hups 9 \lq\ uuq.ai\ dS>\u \o mi 

Expression citj^uu &Uuj| jLlc 2 ujLu%M ciLi^aJi cibjJji Slc.ij -4 £y* Ajt (jj^u “• 

sja 2bsjijJi py Logic Errors p <m JI p^» ^2u ^ <^ 1 *. Assignment ji ^JbKjLaAj 

. U*> JU» PJJ AJbJl 

t/2*2+2 -t 

(f#) + (6-4) -r 
A=2+3*4 -r 



$ CiUtltaitj tLdtaJfj'jJLu? 

u Utiai ja juvCode a^CS jLL* 

i JlS'jf CXjIa^ cJjUm Ji) LiuyU IW'Vl LU^U 

fi j*4 j^1j (ilUAj c^xjGjj c IJa^jf 

( JjJluoJI iLul _ AukUl . 4J$*UI) : pAj 

Syntax Errors djo^liUt^ay i Q 

9 4 jlUI j-cf^ 4 -oLsJI 0)9 1^11( gi h -vf ^-<09 
I ftjjJyV A^yVj ^-Jyb^-C $-& l_ 4 _£ <a.q-4.Ljud ^l£ 


*93 u « Code *3 51 If 4 _>Ll £ 

1 - Din x As Single 

2 - Const x As Single 

6\^\)\ «Vu\ duiud d) cvmir col X du® ix& o§e§\ fi \ 0\jJt>\ ~ T 

3OJ. g ftjJl tJLA p-4 lia> g <m 1 X tlu^ IDE Uj^Wj »Ua»y> i‘v« f »jJl tJLO < JLc u-dauii j O 

. 0^Ji2uUSfttiii JaUaSXi J+ui 


V)aJ>- Dim djold cu^ 6 Uq X £suk\ cuz- 6\^\i\ ^ \ t)VjJo\ ^9 -\ 



nAod / atliullI al^T^> 


> -^dTwb\ ftiaiJ uiii\iJ\ 8 KmvUlTuim) 
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Logic Error 




J L>jHx j hi f 11 to a t ...I »r 4 -q.^.LjjLt £ljLU 

£ U : a jl <iLuLjJUu> yjl^LaJU 4XL-U3 uuJOJlI .gUoUjtJf J_*JLjuUl) -Ut-) I t*» guLLi ^_Lc 

Lla_> gJLU ^-Lc Jj 11 1 u Sj3 * 


Dim Radius As Single 
Conan pi As Single *22/7 
Radius * TextBoxl.Text 
Label2.Text * pi + Radius * 2 

End Sub 


•»— Lila uLi 

(jlaaj JSj<Ua>> <JjLuj <^1 
(*)2u^l&£* dflJLj (+) 4 


>ii : c)1a» 



. £y* jtfUJl Jjxu, CiUUj Jl»> jL jjJ) jLlL-vI uuu »l 




— 

, j_j_iJLj& J_£_J puJLji hi 1 ■ 1 
arable = TextBoxl.Text 

j.jOjuiiiJ 

/ 

icoraputer = Text3ox2 . Text 

. - . \ 

1 <jJ 1 ff ~ * *1 1 £ *_l 1 _j | 'p3_UjjT-_ 

I- 

A 0v e rf low Exception was u n handle d 

Label3.Text = arabic 4- coi 

i q -iH 

Arithmetic operation resulted in an overflow, 







;_ 




oiUall ioVpi ( X )gpftg>Q oiU^U fllol ( S ) dLpft^ &io :[|9| 



oV «"i\Li \/B . N E 1 ajlI 


o> 


■Hit VB . N ET" AJtl 


<*> 


*a>? c^a Ls-SU^^l ^ <^t cnUUJt 


~f£Jt 


<^> 


sVktjilt c ^a ^ c=gr Ikll 


<*> 


4 


(-) 


O) 


. j\ i^x t 


(v) 


."a 


inV' fA " a ^ 


(^) 


* ~ ,\ -, \_. >\ l 


*. . i\V l-»\t Sj, 


O) 




O •) 


• oW' 


a^j^; 


C l^d 


1\ 5^tli OW* 


O ') 


^S? t _^jt a^j 


5^.tji .ji / j=-xlt 


uW 1 ' 

Mftl eaolt- 


O *) 


-p_yj_5 ~ - 1^.1 y < >1 ^lt 5 > ^1-ij (_jjLa^o VB. NE I a»l v“it >1 


«aolL> 


o Y ’) 



Caudill aAqA / dIjujIJI al^J^ 



dvtvbt tiu.ViJ\ a Guilin lulj) 


)X<^X<^X€^X<s^X<s^X<g^X<^^X<^X<^X<^X€^X<s^X<s^X<§^X<s^X<^X<^X<^X<s^X<s^I^)X<s^)X<siK)X©E)X<s^)I©E)] 
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. V(j l ~ A ~i\ -> ■» \ \ L >^p-j ^uuj 


oVB.NET 


o *) 




X/B.ISIET ^LiJ ' 


O -) 


Oft^uLLalt t __ V*-- *_a 


O^) 



"Dim F_name As String" a_4 


O V) 


tjc. "Dim F_name As String 


O*) 


o *> 


(^ *) 


. 1 \'j -0*V ^ Vi ~i 


<* ') 


(Y Y) 


(YV-) 


i* ‘> 


fo~ o^=>y» ^ 


(Y ®) 


( Y n ) 


(YV) 


(YA) 


-v. tt.\ ,._a vjiulj^t 

^ 1 '* ** ' At 


(Y<V) 


B.NET a^J 

jJjuh \~\\ 


0“*) 




0 “') 


(rY) 


_ j a U._. U=^Jt 

.Syntax Error 


(r r) 


►U&l 

.time Error 


(rt) 


X A_^\g iM A <ojaH 


(r») 


(Y . ) l _ ir A X — 3 + 2 ~ 4" A^valt aj^L^ai 


4 —ill^ 4 xa \Q\\ 


(rn) 


s^Ijc. <_js Jt-*sy 3 .....< i-M 4 ^' sijaa 

: CjUU^ \ ^ aj JiVI jUuyai A_oa3 ( > ) 

— «_l A 1 -^ > .r-» A > —i 



| <tfui*yi aAqA / aliuiyi alniM 

i 'rn' U3I 

IX<sl®X<3l©X<3l©X<3l©X©I®X©I©X€X®X<ai®X<sf®X©Te>X<s>I©X<sI©X<^^ 


dy\vb\ eub^j u»>v^\ a KiuukH ill:j) | 

* - — <§ 
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Salary ^>J» "1 ^ A,» u u^aU ( t ) 

Dim Salary As Integer —t 
Dim Salary As Byte 
Dim Salary As Decimal 

z < _ sr A Oity 


F_Name 


Dim Oity As Stri 
Dim Oity As 
Dim Oity As Decj 



»<•) 


» O) 



^ F_Name 



Dim F_Name 

Dim F_ISIam 

Dim F Name 


Dim Gender As Decimal 
DirrLG^yider As Integer 
Dir ender As Boole 

Name As 

'Dim’ F_Name 

Din F Nam 



jh? tJji * 


X — 3 








yn 


d F.J tl-i-=i>H < > - ) 

yn tax Error —t 
Logical Error —<__a 
\/Run time Error — 

VB.NBT ^ % Aji 1l-.^11 (> \ ) 

Syntax Error — X 
Logical Error —^ 

Run time Error — ^rr 
Ai x \ n ( \ v ) 




Cau^Hl aAqA / dIjujIJI alai*I 



.----^ g 

eua^j uiuV^Ji a luMim iui«) | 

<§ 
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ri 


Dim 'V' As Decimal —T 
V As Decimal — ^ 

Dim V — Decimal —jr 
\ — xx ^ n ) 

st name —t 



/•.*.“N 

■ (( dL± if L »$j? 9 itf'...I 4J15? ji ^li)))uul^oJI6|Lifeclca 

| How perfectYou are 0 Allah, and I praise You, I bear witness that none has the right to be 
[worshippedexcept You, I seek Your forgiveness and turn in repentance to You. 

___ J 


| aAqd / 3liiuijL ala*! 



cnuliJl a Xml’ll\ Umlm) | 
*- -— <§ 


IX<sl®X<3l©X<3l©X<3l©X©I®X©I©X€X®X<ai®X<sT®X©Ye>X<s>I©X<sI©X@^ 







































5T©X(sT©J(sT0I(b1 


^Xe)X©X 0 X<sX 0 X©X©X©Xe)I<sI§)I<s: 
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Branching ej- 


-uUI 


Branoaing 

(Ja <;Lu 4a$am kUaJu £ll*j U IjuS Lot Flow Chart jSJui I Ji Luuji 

p jSJj Algorithm ui*h? vi Code 5 uiis ji jl» ^ jruw 

.... c 2ui*iai AiUl >«l/b 

: d^a uJI dilJ diiaa ii^a w f t Alii I c±A | 


If.. .Then.. .Else . 6J> ^£ jjfih - V If.. .T 

Select...Case 6J>fb*uwL£;i6M 




4 £>***'-' | 

j 


s.^ ttion ^'ou sTTii^ln get ht«.inr.. 


pf-.-lhen jOgjOi 


If conditional Expression ( ) Thei 

code 
End if 


End If JS T 

jO 1 ti^uLi jjisj) En 




ial Expression ^1 
j_yji lijhn ( True 1—>1 
iSiijSN juiuj ( Fa I 

•j ) JL>I^ jLu.'vl 








^yv^yj* 

uJI jl k&Jbu lISLj I if ) ★ 

1 jAl\ j^xjuIS g*2Ui q\£ lij ) ★ 
j^uuUi g^U plS ) ★ 
^i^jLuxjjt If* * •'Then 4ju^» ★ 



wui» 

Aui ^ iUj dJij Fals 


50 <5oV 


Conditional Expressions :" 4 v*S\ IZf 

ji True uljM Ul Aabb QjSj Code j* ^ajJUl jtujuJI 

b ^i jLj Variable j£L> ji Property 4 mI^ 

\ Degree ft5ti))\ <uu9 uitf V>\ True <j\qj£ dj\i Degree >= 50 jusiM : ^VjL% 
50 on ja._ ao\ Degree juuJb\ duai9 cuH Vi\ False \h±- ^uVjlV fcvivxiq 

m 1 tfrii «D|t^TrM ^^alaa IZf 


. 1q£)q »ljoi djD .jo ^jmJI jxiszill : 4^ 

i3U 

d+xi 

T 

>»< 9 = cJii* ^Uxv^- yu*j£olj fc-3^ CLjuU CXiJ 




isiinnJI 

LlnlnnJI 

S>qL±j 

— 

Sk}L*j $ 

< > 


> 

Oo >iu= t 

< 

jv^lA| 1^0 

> = 

c|l yjjQ )Ob1 

< = 
















































































Sl : e>X<g)Te > X©fe)I 1 ©! 
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Conditional Expression 

Jill 


^.U*Lo. (1) 

VaLmII ^ 

Variable 

Or 

Constant 

O- ^oi! =* Or 

<>* j-—»1 < Or 

<3^ -Jll 

Or 


If A > 5 

If A < 5 

— 


trSj*—J 1 (J* J" 1 ^ 

Or 

— Or 

-_i V 

-JJy*^ O-* 

Express ion 

If C ■<>■ A - 3 • 2 


.fii *i~iH r _tl |f .. Then aXu ptJajj 

gji—iJi 

O^Lo-la Qjlqjfltt o? True | 
Texthoxl sijmj Text ^-lusisaji ^is iji TF tUEOr 

jGUiioj^j - DEGREE j$3ui\ 


iiMyj CXjJ^ jjGj Cj\/uJb CXJ}i£ cxixfl *3 

ISlbjiilJI jllDlJI 
100 < > 100 



AnK dj dJW) idqjjj^o (Josi 0- (Sqluu q\ uo jtf\ 6<$ \» dJb>- o9q d>iJ\ <3VS-a\l &Jo\iy) dn» u^ljbXl 

f\ f 

Form (jLc ijjjbzi f 9»Luju ^ Tk 
MessageBox ajl«j 2bsjLU jj jLc. jjcult JLlc - AjtUtlj 

50 l5jLoj jt O- 4 4^jjJl CjuIS Ij| 2_>*U AaIS <u 

jie slnit^b Cods ±><>^aJl >■ 





-f>JI 


Button yp\i\ tp MolSJl Click uj^JI g\y>-\ 9 ui&q Code Mjfll 


igbilJI ctbjjD 


Private 

Sifb Bnttonl Click: 

/Dim 

x. As Single 

/ x = 

Me . TextBoxl . Text\ 

( If jx >= SO Then ) 


MsgBox < IF ^js- i_ j ,T 3 / 

\End 

If 

End Silb 




C^^yi aAqA / dIjujIJI al^J^ 


dv\^k\ a Xiuiikn lulj) 
































































































^X<sf©X©l^X^t^I<sl^X©l0X<sf®X©l©I©Te)X<3TejI©]^ 
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Qsi\* 


■ "d<\nr jj ^ki 9 gPipiolIJ^ol** 

^>yv £>#3 ^ 

JapuM £ul» 6qli \»u£- di\ u&- 50 od dd\ dmd iSl(Jl}>}\ «£• MessageBox diliuiM )(}&£> ,oj£- 

Procedure <s\ - End Sub <*&<» End if «»l» iauFalse 


Private Sub Buttonl_Click (ByVal send 

Dim x As Single 
xl = Me . TextBoxl . Text 
—^ If xl >= SO Then MsgBox{' T ^Li ,T } 

End Sub 



ww.LaI I 

End If 



| If... Then ... Else alaa^lfj^JI 3 


^uU lit ajmuLu p~ 1 “* Codel dJLLuuJI j_c. iuLu^ll dIa JiilLi 

.False iduLL* gJU jLS fij Code2 ^?o^S' LJLu pJu 9 I True 

|aaiui|)| 

Fa/se itafkJi iJb- ^ >Vij True ui>aii ijb- j uaj^i > 3*3 ju* lf...TI n..Else 

e-v- 


If conditional Expression (yhj& Then 
Codel «-1 True *>>*» m* v»f>*in 



Eke «v> 
Code2- 


-fl- 




Endif JbjM din^ dLiVftj 

Kyiv 


j False tAA^cii 40 ) *\ ><*iH 


Else 6 ^^, The 
End If (^9 Els 



>»5^ jjAupuj; 




)(True) jj 5J^ ^ ^SlS tej 

)(False> IJaS- c J 9 ^jS» 3 ^ ^UJ 


50 uoo dd\ d6>)jl\ dJV^- <| uu>\) duaK Aj MessageBox <&Hu>) (Sqjjjyo ^jaau) uu\m)\ cuyniUi Code ><$\ dim> 




.fJI 


igoilJI abjjii 


Button n>W\ \v Click 6 ^J\ $\>M 8 ui 


M>a\ 


Dim x As Single 
x = Me .TextBoxl.Test 
If x >= 50 Then 

MsgEoaC^ Lj") 


c 


lse 


MsgB ox { "uubi 



End If 




Ca^yi aaqA / 3 limy I ala£| 


dy i}kl a io >J $ JhjhiIH iuli) 
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“=0 


Dii 1 As Single 


False b\&b\ &i\i dJb- 3 tail) \» uoxi ^vllq Else UdxSbxuA \ii\“ \ 

x = Me.TeitBoil.Teit 


\x& End if oqu j3-\q jjauu d If dlnV bj$ ul?~r 

If x >= 50 Then MsgBox( n [u?U") Else MsgBoi^l f) 


(. o-ij Else j Then j |f J*a, <41 jj) 


If...Then... Else 

j_« iLq-jui J.JLLluj £Project .LJLLL> CuLuuJI 

$1 &)!-»-£ N ^9 ^ H 

—Jxd! 


1 « 1 >ki ,-jii «_u£jj (Code) 
i(Button)_>^! jjj click 

Dim N As Long 
N = Ke« Tex tBoxl* Text 
If H Hod 2=0 Then 

KsgBoxr^jj pj^i") 

Else 

KsgBox{"^^>-i fJj-D") 
End If 



jsj-uuJI JM-jk j-g ^iL jgJu 2 ^-Lc 4 g m d t( 
oLut-g Ijl ^9 (jJlj*3=) 4 g tug Tt 
.dJLujj jgjJLj^a ^ (^,->-9} fO-Sj-l0 aJUmj 


aLLx-o li^i ,j<? >r> 


X<L* 










4 g hi a II jIJkX |fijLX, 

(4 g hi 2 J Li J-i-Aj ^9 a g <>< a I I 


0 


^-SL» jLS Ii1$ 
ilse Joj-ujJI j-ii 
. aJi 


c>* 

HourWorked = 




If HourWorked >q| 0 Then 
Salary = HourWbrKed *5 + 100 
Else 

Salary = HourWorked * 5 
End If 


... = HourWorked 4-s*-^ 
( Equal - True - False) 

.= Salary 3 ^jS-Y 

( > Y. . Y • * - >.. ) 





10 Mod 3 = 1 

(■ 

L^J 

l \ S itlg . 

4 Mod 
49 Mo 
od 

od S = 
od 20 = 






1 • Jl C>< Jl 

(9^9 1 -M 



'0» 

/A\ \\ 

Arabic = 2! 

English = 20 
If Arabic < 25 Then 
Total =^0 
Els 

il = Arabic + English 

End If 

Total 4 g 1 3 £j{ q «(tlTI ldLi.au jjlj- 1 

( r. - £o - ra) <tr * 

u 4 - * * lf..Then...Elase <LL<)-»- f 
( End If - End Else - End ) :£ 9 1 c ; 

48 Mod 5 jjuLa.1 ig*i-r 

( r _ 9 _ 9.4) 


JlMiuijfcQjmo JqC uqlLap : 

Msg Box dlluij^q. pflj 

v39 dix=> gpj 9I - ’vjtP'Qjp^jll’ d| 

pSjJI b! \ e, .oja 39 # ou dlLu j 

dll .dl paddl dkajjd pjuuj go - 

« eU,o ^.lc 

Private Sub Buttonl_Click... 
Dim X As Long 

X=. 

IfX.2=0 Then 

. ("vWJfijM") 


MsgBoxf. 
End If 


•") 



C^jfllll aflofl / atliullI ata£| 


dvliU a io >J $ Jnaiin iuli) 









































































imiemm 


m&M 
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|| Select...Case t^dl( i | 

UUU\JK^y\Z7 ^lo^iiulll 

(jrda^j^>si)^uSkj>2 ji^jj jlHj Variable ^ M ^ ijlmm &sj ukk ?j*l 

■ Cikjj juSl Code JljSVl 4 j(IS jip 4 ji us 

l 


Select Case Variable 
Case valuel ^ 
code ^ a A jatt AjjLui^ jJlLaII 4»4ji CJIS I 4 I iiL lJij^jj ^ ill 4 ij£Jl 
Case value 2 Sjj&l «JbJl 
code T a aCsW 4jjLuu» jjAIaII AjuA Cn\S |jj iiL 

Case value3 
code 


Case else 

code AjLluiil ^aaHl j£j AjjLula jj£- jJu-aII 4»dd2 Cn\S I Jl iiL ui 

End Select ^ 



^JL£j c J^Ijw 

; lU^tlj Od< 



: IS o^AMlL O 
1 jf UAJ$ ^JU Jl 3^ J^lauM 4Jb* ^ l^d47(0*1 
J&/QX i Case 0 : Is j 

1 Case ilgalci^ in 


Case Sjjao 4 g i,S Ujjl JbL 

Case 10 

Case fO-jL-S 6 j^c iklt; ^jL 

Case 10,20,60 : 

Case i^dki To 4} a Lajju ^jL 

Case 10 To 50 : 

Case is J^Ula + <j q ■ i Lajuu 

Case is >= 55 : JJLo 




■ a. 



1 /u>tl4JUi J2j j>jAU :uipJA\ftab Focus 0 Q 

t^omboBox o\> \| SelectedlndexChanqed QjfrJl Q 

Ik > >hak 1 / 1 JUJUJ dk jki ComboBox SiJiU ^IJiaVI ud*)l jd 
SuiiSii jA Index (jikii > j^ko < uk>j) (kj jkL ujkj 

: ComboBox oU\l Selectedlndex awoteJl Q 

lyji Jlj jJjjuJI iJL^fci I jiiA*uJi uxJjJ |^jJ 

: Index umAftl\ Q 

. j t j y j >) ukju jMiki ijlu ComboBox SbVi <4 ui (.. 3 y 3 \ j ♦) ukjUl > j*atki! Ulu Index & >$aJI (4 
. (jlgiU ) j J-d) ♦) ty ujjj jlS (jlp _Y j JdJ J) jJjiiaIa 4^ jJjJudl fyjJua jlS lij)) idUJLi Jlxaj 



C^^lll aAqA / sliiuyi alai^l 


dv\^k\ a Guilin lulj) 








































































aa m 
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r? c)>^* 

' jLiIi-l" jjJl (jlc jijJl TextbOX 1 5jljsJl JacT&U* ui 

999 CUi^ 9? jfl<r>ll Guu "SjLc ji" jJuo l 5 jLuj "SjLtc jl" jiiuaJl (jjia 5jLtc, Label2 ^ o&j -*4 

Private Sub Buttonl Click (ByVal sender As Syste 
Dim degree As Single 
Try 

degree = Me . TextBoxl. Text 
/ Select Case degree N \ 

Case 0 

Me . Iiabel2 . Text 
Case Is < 0 

Me .Label2.Text = "jjLaJl laj ,t 
Case Is > 0 

Me . Label2 . Text = ,T j_LsJl jj_a ,r 

^ ^End^ Select _ m / 

Catch ex As Exception 
MsgBox { ,T J JLC 
Me . TextBoxl. Focus {} 

Me . TextBoxl. Text = ,T ,T 
End Try 


1 j-fcj’ 1 


End Sub 



o.WTVVl 


Output Output J^Output" / 

"jLfl" "jUIlyJj" i 

A 

i l\ 


0 

Select.. Case . u^ t. i&Jji 



£> 3 &S 1 jf jcj* &&&&* £jifiMcXjSCii»J i 

. £)&&&£Code ©***$cm»^-* D 





cJtyw 




U^dLLu/tjjJ^Uo- 4 

1juuSj53lj SjJkll JIdU 
1p 4 SSdMXI £ ^x L» t ^aj| 


Select Case Co*oBoil.Select 
Case & 

TextBoxLText ■ 

Case l 

TextBoxl .Text * fn w^J ^ ^ iJjiyj i • ** 

Case 2 I ^/y ) 

TextBoxl,Text =y"^JL kJuJr jjiJi m 
Case 3 

TextBoxl.Text ■ "Sjijj-j i i>* ,u_ j ■ ■ * ■-u 
Case 4 

TextBoxl.Tex* - jpjjL# aLii*i W ^ -Li p**‘ 

Case S 

TextBoxl.Text * w iUbJI jJ i joL’i ‘UaJi jJ -Jj i,u- 

Case Else 

HS^BoxC"i*j «mJ* jUiU j^m h J 

Bid Select 




Multiline J&\* 

True 

jA4— co£^£— Sj^a) j^aUxll i luai* 
— — 

^Vil l Stitf Items 

ComboBox 

f! j*) ^^Ul! jjSlt uu£l* 

SelectedlndexChanged 
ComboBox Slitfb 


F5 

. QSb jJb jip^SS yfli^ fS\ 



Caudill aAqA / dIjuiIJI alai^l 


dv\^k\ a Guilin lulj) 
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If X >= 50 Then 

Msgbox(^.U) 




: J^SiL V \jn A \‘u *jST S ^jc. *. _ i>l ( > ) 



tj) JjSit .1 jiAYi — c—i 

: X —dj 

z^S "Me." 

cj^WS ^ (50) A-o^l <*3 

aU_n A^xualb 43SJU ( £ ) 

:IF .. Then *. Else 




| C^^jAyi aAqA / 3liiuijl ala^| 

i -m- v=U 

IX<sl®X<3i©X<3l©X<3l©X©I®X©I©X€X®X<aX®X<sX®X©le>X<s>I©X<sI©X<^^ 


^dTwi>\ uu»\ij\ a Kmiiii iuim) 1 

<§ 
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Country 




-csi—O C 3 J- 
Egypt" z. 








^ xx ^ __ u 

> 





T rue » 



Fald^yA 

V 


* <~> 


Dim x As Single 
x = Me . TextBoxl - Text 
If x >-= SO Ttien 

MsgBox { n ^ ** > 

Else 

MsgBox( n o«i _j"y 
End If 


Dim N As Long 
N = Me.TextBoxl.Text 
If N Mod 2 = 0 Then 

Ms gBox ( 11 ^ jj pJ>J I n > 

Else 

MsgBox( M ^ijJ p_ij_3i n > 
End If 



:qa)1\ illwjJI fj jfL Degree = -3 :q\ G*k- lj) 


5bl j£> .ga^J! jJL Lgc- jjSil gajj - 

: jA Degree j* 2*11 yi 


Lvatie Sub Buttonl_Cliak (ByVal sendsr /Vs Syste 

Dim degree /Vs S i ngle 
Try 

degree — Mo.TextBoxl.Text 
Select Case degree 
Case O 

Me . Label2 . Text — " 

Case Is < O 

Me . Label2 . Text — OjO" 

Case Is >- O 

Me . Labe 1 2 . Text — ” _> A~a l 

End Select 

Catch ex /Vs Exception 
MscfB-ox < " ^ Ji_c ^ l ") 

Me .TextBoxl . Focus () 

Me.TextBoxl.Text — "" 

End Try 
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Looping and Procedures uMjauig bjjijsui uLoj^ji 

a 05 

)$ jMt jruuu qljIj * Lj ^Jbfc4 Code JjS JLxiuj 2u2uS y^WJf Habu 

!!! Ciljll ^4 jjLsJ jJb &4 Code JjS jlj5u *UiuS ^Jbu-Lai 0^3 
For...Next ^Idjfclmbu Loops fiUjljSllll CA 2 lJb&jl jiajX, 

Do 


4i// dSjj^lc ijLu . 


V»^| For... Next^ia»|»l 



..Loop 


( Iftuu* <zsjjx* 6V 5 uljil :aa jryu jjjiaJ pjJLLuJj i Jj-bsil j\j£U\Jap J^i 


For Variable = Start Value To End Value Step Aiftl Value 
Code /\ 0 

Next [Variable] 


0 


(VfjMAjI gUftld) ^*2) AC$j j$Sj j 




0 N— 

Counter ji^aji 


.Next 

iiUjJ AaaI>AVI AvuiJI j(jl 


^ For X= 10 To 100 Step 1 


Ij 4 fcUl (jAj jljSmUl Aj IjU ji 

Jj AuA g&jjIjSZil A i i! 

JO* JtJLxtf l£J djjj 
2b>l jSjJ\ AibJi AjUj jru j 

tepAdd Valued 

. i'ibjJl 






- >A 


f%X 

; J 

I /\ * ^ 

21 m 

1 : Variable 


:StartValue 


Awi End Value 
i ji jijjJI djbj M :Add Value 
bU» iijii>siji v»)^g)U^ :Code 
I jS*j Ajla 1 SjbjJI Awi uuIS l jj 


_ \ Ufi OHpSj&JS t^)S\ om* For X= 5 To 20 :g )U> 

Add I Jidj 5/ JS Next . [ J AJab-VI ^bw lAAj AJjLu£l NextjljM jlJudl .£*!« ( 4 m I Aj£S 

^jUddl Alb- (jfl ip&dlj AjL^UI A«dk 2 djjQifj t jlS I jj jjbjdljlJuUj j'jbjJU 

For X= 10 To 2 Step -2: c^udL JAddb^iHlSibj Awi Aj4aJI A*l 9 j*jjSl AjUJI Am* Jjw- jSUj 

Single £>£*}! ^uuti jA jikvi um ajjmIa AMij(ui j»ij^lwi jua 

. AJl^ai ^jLwJ ji > jjSi lu£ I jj LJjLuj . Ajl^ln U £$LJ ji > J 3 i ^uil U uilS Ijj bJAbaJ jlIjSSlI |«L 

- : Ul a «H.ftiA Jg$ 

Counter ^ija j£U aoa JUu Variable ^uu« h For jamj « Next A«isb For <uisj AsbJi iau 
. 4ji^ui aw£ (ji 4Abbi j^ii Code End Start ^jiaj Awi aj 



C^jflUl nAod / atliullI ata£| 


v »VsJ\ $ twin iUUT) 
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r Jn <> ije-Vl uijp 




^X<^X<^X<si^X^^X<sI^X<g 
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}3\j pup 

y } ^&kjp6\j&3 : 1 <*>* 

«<uu jB 1*43 1 &» 


. iiSu)\ djDJiS- <J& i\ni^\l\j Code iqi)\ uiSi cd^iu 





.fJI 


igrnlJI cibj|D 



Private ^ Sub But tonl Click (By 1 
Dim M As Integel 
For M = 1 To 3 
MsgBox(M) 

^ext 
End Sub 



Code jjjJI yvjuo £uj 


S^Lkll 


M 


u 


o 


Dim M As Integer 

Jl Xm I t jijxjla t'jP 





▼ 

Ise ^Ull) 


/®v 


/fi- 



%r For M=1 to 3 
M jIjkII AjI ju 


Msghox M 



M-2+1 L*» 

ng 1 u ^ /w* ivt X^fcjA . \ a 

( False 


Next 

**- A a la-11 a_i L^J 

ILi Ut3 tA-jjtIjSSil A IMI A^L^Ji 
II A ■*■ >*> t_£Tj l—* - Ti f~v* (JsJ jV-i*-U 

Cil^. . ij 0 JU 3 H 

M jbSll aU>" Msgbox M 

a jUJit vw 1 Jim U » M ^ ^ li I-> 

Next 

^ 3 * 1 —*i\ *-i>vaP Ai 


M = 3+ l ^-■v-w.iji M 

*j ^ Vll <>03 j) I M Ja 

(True ^Ull) 

^□3 O- ^->^ 1 

Next i 


«LUa," Msgbox M 
- ^_uJJ «MX-Uia 

Next 
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2ul0jJt IUjlIlj SjLjJLjtlt AojuaJi ZjJULApjL* US M jji2U 2u jl£ Jb}j f*j2u N©Xt JjSDi ^jju ^4 

4 2u^aJb £-4 £j>*}| |UJ ^ t^bj &JU» 4 2Ujlji^Ul 


printnumbers IflESflj 

- 

I \mJzJ 

pnntnumbers 



r 


1 0K 1 


in.” . i 







3 jjl 1 tj-D j-O^H jj jilil J(P Jir^rtVi) JO<^dj Uk^ ^ 

OK jj jjajji jqcj 1 ^jji j-xj msgbox suluj ju.ua 

3 ^uunii ijjlsuj 2 ^jJi ,jiaj-3u >vT Message Box ^jluj ju.ua 


Designed By: Fatma Abdallah 


d\\S- cut i\w2 \i\ (j^ys) tibludl 
jjiV yjaau <| (OSj d$ 6<yii 


Private Sub Buttonl Click(ByVal sender As System,Object, By\ 
Pi mm As Integer 

For m = 1 To 3 

Me, TextBoxl. Text = Me. TextBoxl, Textl 
Next m 
End Sub 


True ji Multi 

jaj 

0 



dlk- (IqR] 

OX (J^j <9 quk> 

oitt\ euiVj 


jyS U ^ ★ 

iil 4 jaJbtJl J_>-l J (JjJLxj ★ 




dvxy o9<y < mocyiaitt ujj 


Me.TextB 




0 : VbCptfv <SO>JO 

daiuq dte-itt\ fcttao y»j iisUbtt piiduu eutt 

: U\ JUJJJ 

Lf= Visual Basic Carriag^/ReWn Line Feed 


V j&Vx* fX-uJiuX 
] Jaiytt ds\su> piSouu 


it tt 


^\\ fU 






,x0.\)\ <jp\£. ,J& jaaydl 


tasuocylq < yyiu tt 






SOX CJAi)\ (9 








3 utt<ybcD fcuub <U)\yli)\ dibJ\ did 

nMq F5 jaaydl jju € 


tBoxl.Text=” M pUidiuttq < ,o\9\ttl)\yli «• 

VbCrLf i»i>- yhut jjoj 8u> Jwytt ds\su> Oittii dViq 


* ^ JL£dlii$ . jaiJI jjJuaJp (T) Uj^aJI JjJb' jajJU uu*J JwljjJ JaJU ' AJ >3 yf W 


Dim m, Product As integer 
Dim str As string 
Me.TextBoxl.Text = " " 

For m = 1 To 12 Step 1 
Str = 3 & "X" & m & "=" 

Product = 3 * m 

Me.TextBoxl.Text= Me.TextBoxl.Text & str & Product & VbCrlf 
Next m 


C^jflUl aOqd / atliullI ata£| 




dS>\yk\ ftiaiJ ciu»l>Jl 9 fcimyill 
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das a diWH J\llb\ 


J—-ali c^5>^S (product) 


,(M) 

. ^T U .aV i ^ W~ - J 1 in"! i i*m^ij J ~h ^ ■ l jjpj (sir) jjt t * 

.(MJ jriuii * *-j % ^ joju JS *-* ^_■ - —-'- ^ t. ’_'i- ■< 3 x 2 ® jt 3 x 1 =) 

31 JjJi_Md ^ (product) jdLUl^ ^ & Jajj Jribu (str) ^ 

.(Text Box) 

(Variables) tz^ j I ~ i II & j_* ^l.i ^ ">_*-l jjj_i 

Dim m As Integer 
Me .T&KtBo-Jtl . Text - 
For n “ I To L2 


?? TextBox c>£b ^cj^ olboj {*« ^3j o yipbS 




Dim m f product, HUM As Integer 
Dim str As String 


HUM 


TextBox2 * Text 


Me -TextBox1.Text = M " 

For m =1 To 12 

str = HUM Ctj!.) &- m & " 
product = HUM 

Me.TextBoxl,Text * Me.TextBoxl.Text 
Next m 

( u\j£L» jflJj/jJ 

_ _ _ . V ♦ ** + 

Dim M As integer 
Me.TextBoxl.Text = " 

For m = 1 To 12 

Me.TextBoxl.Text^ M xtBoxl.Text & 3 & flX' 
Next m 




"=" & 3*M & VbCrlf 




TCT?-ft 

For..Next jU^ d^LjJI dAAiilq ^ ju J i iM 

CXu9 jijudl 6ul^ \)1 OaJ jiipl Uita Oiljuii Ou9 jjl QJbWMcilujjtfM <j 5 UJitS-V 

Oxm3j 6*J e) A& Step JUb ^£^1 CH^ liii/ c >^9 c ( J^S 0 *jpSj&)lS fc^bjll Om 5 cuil^ 

: QaJIaII oSls^iS ^5 .OaUmj jl OC^^f Ojjju^ jl 0^5^) 



3q. 


.f>JI 


UL 


-kJI 


For I = 1 To 10 Step 2 

Me .TextBoxl.Text = Me .TextBoxl.Text 4 I & vbCrLf 

Next 


>♦ JA 2j^I JlJLfiVl jaj*} 


For I = 2 To 10 Step 2 

Me .TextBoxl.Text = Me .TextBoxl.Text 414 vbCrLf 

Next 


)• (^1 X jA j ajjJ 



Cau^Hl aAqA / dIjuiIJI alai*I 


dv\^k\ ai ft sj <ju»vsj\ a iiuiikn lulj) 
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For I = 3 To 20 Step 3 

Me .TextBoxl.Text = Me .TextBoxl.Text & I & vbCrLf 

Next 


r* r ja r ^ j*23 Jajjj 


For I = 10 To 1 Step -2 

Me . TextBoxl. Text = Me . TextBoxl. Text & I & vbCrLf 

Next 


\ j* Ldjlij 



For I = 1.5 To 0.5 Step -0.05 

Me .TextBoxl.Text = Me .TextBoxl.Text & I & vbCrLf 

Next 


oy> JS 0.05 j^lLyU 0.5^11 1.5 


Vl 


For I = 1 To B Step C 

Me . TextBoxl. Text = Me . TextBoxl. Text & I & vbCrLf 

Next 


C 4^2 Sabj JkbuJ B 





©© jgjj \a o* fejulwu ©© 

■i^aSy ftsuo <y\ dw9y duoiS dAft fa Step dJoKt yysoaU bi\$\ dxsn uts uis - \ 

[ 0 < t OUo ] <uVfei)\ dutuS 6a ytii jbhdl (Uu9 Myj^ty dlb- ^3 tj\m 6<ylj 61 oi\jy)l Outs ~ T 

dxfii £<yi 6 b 8ibJ\ nsu> uuy» urf* dlbJ\ oi& (Syke- iifi- 6<ylt 6l o»\»yl\ djaa> <y\ cbV&i)\ <y\ di\u)\ dajil 6 is ~ 

‘ 0 . *.*.'“* 

[ 0 (JUb ] Single £<yil\ dua djyj q 

[ 1 d\5a ] Variable yuaa 6<yly 6\ oi\iyl\ du» <y\ <y\ dj\ul\ 



: U^: For... Next p\jl 


For a = 1 To 9 Step 2 
For x = 24 To 14 Step - 


r£ )u* 9 (r)ji^i 

For 



j: For. 

.. Next &, 

... Next 1 

SHSIEBSES 3 M 



' g» J 5 S -3 ^ 


(I) 

t SJWff iJLjjjJt jj->9 bJL>. ^9 
iLg-t-S j9_SLli jfj_SLUI J_>b ^1 

■ * ■ c j\j S. " j-o « i = 1 ,5,9 

i dxiHlldibJI (>-j) 

Next 4 q I ^ JbJLj bJLujjJI ■)§-»-9 dJL>- ^9 

jIjulJI 4-b-*-9 j^S-LS jfjSJJI ^L>. 
4_>L^_JI <Lq^-S j_B j-S^I la 4 9 iLq^-S 

1=13: ^9 

: diliaiallall (r) 

Msg Box 4 JLu«j j^b ^ 9_>9 bJLb» ^9 

j-;^Lai j gi^ Sl-£ AJLb ^^bkJLujJ ^ 9 ^^ J q T 1 ^9 bJL9 


A = 11 
X = 16 W 

X = 16 jA US ^jUI) OjSawNext 4JL«J J JAJ 4JU ^ 

C^jflUl nAad / atliullI ata£| 


A 

X 

2 

4 

5 

8 

8 

16 

11 




dvl!l>l as.iJ 9 iuli) 
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|| Do While ( T)|| 


(Ja iLy Ujfi c ALl^j tyjxt ja ul^II jt iJaJ jruw Code pJasLuJ ■ oloaluflll 0 

^bli js£j jijSZil UijA iJA ASjJW fkjA AJb’ 0juOA l^jl JL M iU-U$ ... <jrUW Idjtf 

End din <kua» ojlus- d\S-il u& djj\yiji)\ dibd\ cut £qyiJ\q TextBox qoil\ 8uyo ^3 «lsui\ dl 

djjj\)d\ )\)nuu\ <y&q \1\ << inan Joyiu dflqii luoqj du))jJb\ (i\ 


Do While conditional expression 

code 

Loop 


True jmuii itn» Loop Do While 5b>i^t 

. dpjjl Loop Joj ijSJl Juajjj2jjljS2Ji22bJi 



hile JI iii> a(T*~»" 0 l| O 

mjl) <> Code ijSJi Iau 
False ^ jij 



f>si 6\^-i\ u& Form ^<^0^ <s<yw! Proje 

a»pH "ii oU yiil\ ^Te 



i9qjjkV0 <b-\i dS»jl>\ fxSpV 

mb ye- <ojj" <li>-<yyl\ i\ic- 

istBox .duxilaM #%aiA 




VuuV) <o9 “ 

\ &»y» od 
y»AnyflU >\ie4\ 
yflj]\ Vx>\ « ListBox 
A9jJ\ Aujjd 


6(1^ js^iiiu ClearQ oiwjir cJbjJsM: (\ ) 


:^L) US juai "j^j jdlitJI Click u(£l*\kl bode J#l W>J jSUj 

k^/i<7 * v lixiy ‘ * ** 

ciiiliJI ciojjJqJI 

isdqlll ciojjhJI 

Dim H, i As Integer 

ET = TextBoxl . Test 1 

Li 3 tBoxl. Items . Clear { ) 

i = 1 

Do Will le i <= N 

Li 3 tBoxl. Items . Add < 1} 

i = i + 2 

Loop 

Dim N r i As Integer 

H = TextBoxl.Text 

ListBoxl.Items.Clear{> 

For i = 1 To N Step 2 

ListBoxl.Items.Add{i> 

Next 


OaiUlM c9}juiya] jbjft- ypd fjobh Qm 9 MiutuL ItGITIS p Add() 6ibj|9ll: (T) o}9jSci» i ; 

Ig~s~ ."©xb-jj gjptM <£>J^ ^ Oxb-jjM zip)3a z)pi I2M OjUJj dmuAiu ** 

^ 1 ¥ j \!?? zy9 Sfjb Ujtu 6 uj> Oai z}P oujjCSi cJiJUuJl) 




<dujnl|l aAqd / aUiuSIL alai*I 


dv\yk\ aiftbJ ciuiliJl 9 Lrniill AULb) 
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L«=»tO| 


y* OJLP 




^yiJt y^V 


itjlS'Vl £)P)X& cci JP 


j) jiift oJboj^ Label3 cby\ ^5 

Iabel3. fcblfl 4 ao>*5\ jplfl £,*£ 

6 Jbb) f p>^ c^LabelS tb^ 4 £ 5 ^? <yp^, 

: c^^labelS 6 b^ 4 6 ^) 3 i iS&^S ^yj-" y } JUis- 

i^jbUS i^udJjiaJ ( 4 J jjjJI JldsVlgjaa^jjj jatitJI Clickui^il j&J : ^> 6 V QJ 


d j7t 'i U 4^jial| 

Dim N, i J, Slim As Integer 
1ST = TextBoxi . Text 

1 = 1 

Do While i. <= N 

s um — s urn 4- 1 

1 — i + 2 

Loop 

Label3,Text - sum 

j) ^jtJpSS ju & Oj^^jSS 

ft n 


Dim H ; 1, sum 


' ngeger 



0 $ 

LabellQText = sum /«\ v 

•W , &Y V.. 

oP >*J ^3 ^ jAi U ^ j^ J Cj? Ij 





|| Procedures 


^ gJJI ftiilj |9J^b jj< 

^ci^yil^b Event proc 
ji Event procedu 
.bjsfij For...ne 


0 Public it 1 a a 3 ff g mil 
BimftotaiYks 


B 



ifl CiUI y >-J jttaj 

If...then 



yVal sender A; 

j j i j I J I if S I ui jS- 

Label! * TexF * * 

FOJf 1 * 1 TO 10 Step 2 

Label!+Text - Label!♦Text * 

Next 
End Sub 




*U*Vv^vk s 


05 


Private 5ufcC ^u^^ Qn2_Clie^>3yVal sender As System.Objec 

* 1 0 jj-J 1 1 Jj j_ll j ■ a_t X I yij-t 

DiiD^yAs Integer 

Label1.Text - 

For i ■ 2 To 10 Step 2 

Label!.Text - Labell.Text fc * * i I 

Next 
End Sub 


orm SiiU iiUbj j^jlc 

Ij^iJI 11a jliu Forml 

stant cuijutj variables crijs^at 

L» j>c jSLoj US 44 usjju^yilt 

Forml /uu\ U5* Class <iu*ai - \ 
total , i «Uui utf variables u\jud» - r 
Event procedures u\jM 1\ u\«\p>-\ -f 
Button1_Click .<wu\ 
,Button2_Click 

piSdudd <i&>\q j&Jbj ^ooVijviV (lxsuu lifi-q 

<Jtt« 


End ciaaa 


Cau^Hl abqb / dIjujIJI alaiil 



d^Wbl ftiaiJ ciuibJl a Guilin lulm) 


^<s^X < g^X<s^X<s^X<^^X<s^X<^>X<s^X<s^X€^X<s^X^>X^^X<s^X€^X<s^X<s^X<g^X<^^X<^>X^>X<^^X€^X<s^X<s^X€^J!£^X;^)X;^)X<s^X<s^X©^I<s^X<si^)X<siK)X<§E)X<s^)I^E 
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lAjicdiLtfi sjL^tj sj-4 j Procedures ^ u ^ 1 ^ 1 us jp 

* 5jla ^sui ^ Code 2 uus pjSi c *\>u jjjl*ji 

Event procedure ^ js uijisai Code j^sai pi: 

> S qjfltb CifdU 2 u Jj-flJl JldLc^t JLsti du^ jljilUl 2ulqfc ^ SuIJLlM 2Uj£ tJLc La jjSju* Button 1_CMck 

T 3 aj fltb CijdLd 2 Lf>rjj JtdLc’tfl CulS jJj 


: Procedures ifc^lcnjjnJo 

uUddjulIj dJLA iiiu (& |^VI life iUJtlul JU£ U uaj Code uUdilllj >aljVI jA 

jjJub 0 & 9 »£ Ui Sllb IsJjj 

': 6 iu" 6 U»f Visual"Basic .NET 3 Procedures 6 W^\ ©i* 6 l" j^Y 

:*AJ■ a BiUD $\j*\ -\ 

_iction 2LJb _r 

. Jg 

| Sub 7\ 

0 ^ Si 

Class > fluinTt) j£b « iSl Jj dJulIS jjiajuu C 



Sub Name (Parameters) 
Code 
EndSub 





maW-Mra 

x£ <iS-li V&Jo\j&U>\ 

Sub «\p>-\ll «W-uui\ 


Code ><$\ diiVkS jVjii />. 


□ Public Class Forml 

Dim total As Integer 


Private Sub Buttonl_Click (ByYal sender As System.Ob 

■IQ_ 51 1 ,yj 4_i j j_a_> l j l j_p V-l 

C3howQ-ddQrEven - 

End Sub 


Sub^i^X' 




Sub: i)V-£ 


Procedur 


c TYv 

,au>\ gg- ftsa Name ~\ 
ifll 05- ojW Parameters -r 
WlsuJlq in\q\l\ oe-vx^do Code 


1 ja (i) 


p>-'i\ (OiSdJiuj dj\ < 4 W\ pSlygi 


Private Sub Button2_Click (ByYal sender As System.Ob 
‘IQ ,JI 1 t \J iju^ q Ul ^ I J-P ¥■ 

QhowOddOrEven (- 


End Sub 


Sub^t^-x* 


S-j CShowOddOrEven tT!> - 

Dim i As Integer 
.Labell .Text = n " 

For i = 1 Tn 10 0 


Subjij??* & <53161(1 


CLabell.Text = Labell.Text 4 " w 4 


Next 
End Sub 


-End Class 


2 = 


SUb * lj^VI *I Jjl£ JLAU JJJ I I 


abqo / aliiuyt ala^I 


^lu\ CoeJ 

$ Code ^ 2 u\jSj ShowOddOrEven 

t JJb pk.jJ.gji JLLc Code J^SUl I Jib Jiuj 

(j-4 ^ PWoii wlxS cujl^ Procedure 

j Button1_Click cjl JL^^I CjIpI 

Button2_Click 

: « 0 v ^>y>5 

<5iy9 Hifioq Miao 6\ w* ^dVjjvH jUb-\ i\& 
d6cujl\ uuflj {JpsQj. Vnftjjo <5\ <J& hsopW 
tjibq oj^-\q j\y_JoJ\ ii\u dmd 61 uuullq 

([\] dnx&U 

: ftiftiJ cu«\iJ\ a ^m»U\ iUbi) 

^X<^X<^X<^X<s^I<s^I<^X<s^>X<siK)X©E)X<s^)X^^! 
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| Parameters (V)| 


: Parameter Ji : 

Sub Name (fBvVal1 ParameterName As Datatype ) 
Code 

End Sub 


ifil 


ill 


jl£wI4UwjS Parameters 
Procedure fiu* 2u>bw 

2 q\ 1 dxu9 ShowOddOrEven «\£-\l\ dmuu 6\ u\l( \) cuni <^3diuVuiU oik cbJ: \j^*a3 

)ou\)\ dfiVioli uUm) ,o\ djiyfl)\ up\£- (Cuuu 6 t$ \j\ \d <| dmol\ oik pjisiuu <xl^iiiu\ iic- 

Parameter lauuqJl ue- ol^'M Jb£-\1 .isi Ws oqVf-uiulq Start 


Sub ShowOddOrEven (EyValQtapt As Integer) 


Din i As Integer Parameter jejMeyi 


Labell.Text = 

For i =(fta^ To 10 Step 2 

Labell.Te^ = Labell.Text & " " S i 

Next 


Parameter^ 


End Sub 


lL 

Parameter 



lure (^2 

)wOddOrEven 
Start 

JuJL j bj (jSUj Code Jj£)l ^ <L«I. 

ji JlJLOTl (jisjju AjJlC- sliuj jlj5Li!l dil tif 2 JLi d.a.i3 


Private Sub Buttonl_Click (BYVal sender 

’10 ^Jl 1 jIjjVI ofljJ 

ShowOddOrEven(1) 

End Sub 


nl 


Argument 


Private Sub Button2_Click (BYVal sender 

’10 l 4_L^jj_Sl jliCTft CfljJ 

ShowOddOrEven(2) 

End Sub 







ShowOddOrEven *ti^yt * 1*^1 ^ 

j*l fiUJj-flJl (ja j£. fCu JjJb JJL?eJ 4iiUifc4 6 Lojl3 

Argument antt a la jiiaj 


&\1qd<) i£-ci\ fc\ian> 

I }qXU lyL&UI fluxj&jJl 


~~w~. " ; ; 

^uoViiytt iU1 S»\ tig- : «0\ e^LsV iy* 

<db 61 uuLultJ^ ] dauillj &*ov» c*& W bsb&a (C*ui ^ixsi 


5 j-j-jjJt is±js- nJ 


S) JU£ 


^jaJI j j^JJI u.-=■>=■ “Er 




JU£ 


"," (^Lu,> aflj Parameter >>Si j»lo£u«l j5Uj Procedure ilj^l j* jiteVl 

Argument Jle, 


x 


aAqA / dIjuiIJI alai*l 



> -^dTwj>\ ftiaiJ uuitiJi a ^miin iut«) 
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iftri® 


fK Y LLU tVtNTS L-UM PLtA 

rw ie? nriAs i^TnwikF 


| Function <U)aJI a*g^U3l (t)| 


fju« j^sJ ji jrfadj c |«wi um jy« A£^4^4 SjUa Function &ijji 
.2U*2j Parameters bSiuj /i u^ju ^ feJaj j*. 

. ^umu Code ^ (uj^ l> 1 jt6)1^-(j Function 

grflSjUt uUgtaJ ;uiu iLul l^lJLfau*! jSUJ jJI ... 'Hauutii ) 2 ujjm 1 I t J^Wt jjH ^La <. jjy ite-kt* t Sjit .5 kiu : Jju> 

)>! yi 


Function Name (Parameters) As DataType 
Code 

Return Value 
EndFunction 




Function jou 

Function ajuii ^ 2 ^ 1 ijJt 2u^)b 2 u#ImIi own 

Code JjSJl g .‘oj- lajLu^JI 

Function aiuii juc j^uL^i dUAxU^ fe 

Function anally 


. t£jJu)9jJbOMJuu cjJflkif... . 


: !! jrui; 

[ (Oj^dJuJb\ cl&Mq ]? dhobi 



l 


F7 fc\Si» K^y 

i\ nV 




ion fToftsiJg) 




Form &qnj)\ oxdVj i\xe-\j p9 [\] 

bq t^JVilV iqSll ufc$lq >qSl\ oxd\j bMo p& [f] 


Public Class Forms 

Functior.(Suji)(3yVal First As Single, ByVal Second As Single) As Single 
Dii total As Single 
C jtotaJ )= First + Second 
Return total 
End Function 
End Class 


«0v v^>y 

Second j First Uj jruwS um Single Sum aiuiii j* jikvi <&. 
Second j First jruuZii j*e £jij <Uj*m <6 Single total j*il« j* jikxi <&. 

Return total ^b-jV 

■lAil^JLuxj JU£ US Sum All Jill |4 mI ^ ftiu total Await, 







C^^yt aAqd / dIjuiIJI alaiU 



dv\^k\ cjluiVsj i a Guilin lulj) 


^<s^X < g^X<s^X<s^X<^^X<s^X<^>X<s^X<s^X€^X<s^X!^>X^^X<s^X€^X<s^X<s^X < g^X<^^X<^>X^>X<^^X€^X<s^X<s^X<§^X!s^X;^>X;^>X<s^X<s^X©^I^^Ir<si^)X<siK)X<§E)X<s^)I^E 
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Slim dl\jJ\ «\e-uiu\l (limit) \iibj 0)H> Ini 


Private Sub Buttonl_Cliclc(ByVal sender A^\ ^ Buttonl j»tt\ w>\&\ 6^\ <\^\ «\wi\» [r] 

Din x As Single = TextBoxl.Tezt . 

Din y As Single = TextBox2.Text 
LabeH.Text = Sui(x, y) 

End Sub 



gulj jajJtij TeXtBOX jajJt jJilxia (j U4U JSJ jt.wTmll u5£jw jojuoMJ y j X jjjwui 
y i x jruwXJt juxLkI jju Label 4 iVu Text Sum 


A /"\A 


i# 2 j>it fuin ditfj t g^ui uU^uj j jXc?i itui (u* ^ ^ . Variables 

< 0 * 2)1 ditfj fa 2 i jiifiVi *ii3i 41 fwi jmmm : Constants 
4 *i jSUjj 4 j jjss(i^i( 0^1 3Udub ijjui 41 gjui jsujv ! Function 

<ai9 (lS->\ pi F5 li o^s- lasnoiu fl9 ifcS-iq [l] 
jgjyV j5Aj»M c)VXOV QA jg 

unction 
tion ajuui 
Return 


. (duiQti a»Vu)\ la^-Uq s jaiuptq ^Ull us)\q dqW 


11 iisdl 


. 1 # ^ysiieJi Parameters jdaj.r 0 
Function 5 Ulji ^3Uaj ^ Code 



>(jj rfftloin rtinnti 



dtqilt drnuu duaai ; lj\ 


jgjyV oukjw \aa 0 


^Function 

gjG i«j j^sj jij jbX Function atijJi 
MdaM 4U*- (|i ^ l^olJ&utfl jj*) X Sub ul^XLl 
Event Procedure uj*jui>h 
C onstant ujl_j ji Variable **L> «Uj ** ivl mSj ji ui Procedure ^yvihi 



'»r- 


Hc- 


'sr- 
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jVYS 4yUr 4Lya 


Pr i vate Sxib Bntton l Cl i ck ( By 1 
Dim M As Integer 
For M = 1 To 3 
MsgBox (M) 

Next 

End StUT 




(ci-S*) . 


41 - A -vm (jc. < 

JaLual) 1 ft 

_otJt c^ c ' ——| 

Oc- Dim «1 

-- <>* — . 

AjjI^£^21 ^2 _j -1 



• •0*11* LI 



0 > 1 


Private Sub But_Repeat_Click (ByVal sender As System 
Dim m As Integer 

Me.Lebell.Text = ,,M 0 

For m — S To 9 Step 2 0 

Me.labell.Text = Me.labell.Text & m & vi^CrLf 
Next m 


MsgBox L _ T frH\ 

End Sub 


0 










->-Sn 


A 5\^ 11 .\jia n 




l.Text = ) 


AJL, 1*421 





cyfljiJi —1 


\»an fJLj —j 

t — ^ 

it Ai*a. — v±j 

- ojl>£2 «at>a21 4££it —^ 

UA^St *»t t>“ ^ 

:yi (Me.labell.Text & m 

A \ laijti ** <0 t x nS) — ^ 

rAJU-y J 





LSj«."U^ *A-*2Ui2l A±x~fr\ CJ^ <T) | 


Dim n 9 product As Ii 
Dim str As String 
Me.TextBoxl.Text = ff ?f 
For n = 1 To 12 

Str = 3 & H x ” & n & M = M 
product = 3 * n 

IVIe. TextBoxl.Text = IVle. TextBoxl.Text & str & 
product & vbCrLf 

Next n 
End Sub 


Z 3 A Jj£il i * ya t 


(\ - Str { i * .i\_a 


| C^^yi aAqA / aliiuill ala*! 
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. .................................. AxlaJI sjm 4~tn — 

. ........................ jI j uII SjLJ ^ 

... vbCeLf < 3 -* ^ 

k _>a Vi« aJB J ^^AfcSiytf ^(A) 

i^uhi ^ <*2 


Dim 1ST 
1 ST — TT- 



1 —« ojLc. 'Ua^il 5j1 




<* 

< ) 

> > — ^ j ~kr. ~~ j Cj\ ( ~ yo 0 ^jc. s^Lic. Procedure \ 

• C>** 

O) 

( ) 

^ _ «»1 <.“!-»/» <_>*» cijc. 5 < )\—»C- Procedure 

. J o^A AyU5 y-aTij ^ioiVI \-\A pic. .Yi> J ,\kC.j 

<*) 

< ) 

^ gi Cjlj-a a ><-- ,' lOJt^o JA-i\~^ jljSi Procedure CjI pl^.V t t ~ H> /_ y<a_>«iJ\ 

<^) 



Cau^Hl aAqd / dIjujIJI alai*I 


dv\ k k»\ uiuV^Ji a Guilinlulj) 
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_&£L\ ^ .,bS3 ^ 


. 1= unction 


<*> 




^ ^311 y- A ^IjVl 

. Procedure \ 


(°) 



<3-* i- V»t g-Ui- V» « ««1 



If \\ \\ Y 

Function XXX (ByVal VV 

Code 

Return RRR 

End Function 

JrtAMlnreger, By Va 1 yiyiy: As Integer) As Single 


A^U^V' 





o> 



('O 


yj<ti ^ ^ a^j.F*arameter 

/r) 



\ / 


All jJ 1 , *ya A*_Zk.l^)Ji -AuJtli 

<*> 



| C^tfujalU aAqA / aliniJ|l aim*! 


dy\vb\ uu»V>J\ 9 JuailU iUiL») | 

-- -— <§ 
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ill 



Cyber bullying ujgjiSJUi usjuJI 

.JLYW 6 “ 

i JLLu..... <iV.v« [^1 tiUi.ii .~.v 



: tfii* clu li) cjp >*«qj 
Lb-»> uj 

.jLjgjjL^ijyi j* t-> j| tt.j ji r jj, 



JO in 4 »( 

4—DULJj-S 

.Email Ajjdf 9! Face book JJU ^ f 1 <j ^ yXt J^f^UI ^_Lc LuLjul^ 4-S^juj 

. £jJI .... 9! jjuuuuljsJLJ) 0_oI9I oLujg^uaJL iuL^^f jiaLkJl Gjl ^ -v j&jJU 

5ujii^VI JLajVliajL/iJjA > JLum j* Sjk* X 

£: 

jliiiJM a*i*jl|-o cA^JII-i ab^jj-r aii^oJI-r //^L } =iil|- 1 j 

IW/U(>)1 :luU 

\®i» 5Ai*il uLuilJI SjLx ^ 

ims mm\ 6\ji3ik\-f E-Mail <***fl\ jjrII - \ 

iger ou<^\ Instant Message b$vb\ diViujU- V* 

look (tin « (Uo\(^jl)\ “ 0 



facebook t 

yourbook 

ul^jVl C3 JLc. uljLKl«yi 









frl :iliU 

SjULrt iUwi j»idjuMi : Anonymit y t^ti - O 
<iuidA jjLj iHarassmen t &u<n&tiHGlibWxM -$ 

• >e \\ )) 

oj£u js£j jSJ jis^i > js£^a •. Cyber stalkin g ajliokIW &nMV)»\ - © 

V _ 

| |So 9 j\ .j&i i Flamin g <iiiU IU.H O 

Qm 


jlsi j! ^ ult^bu i)L£ sOutjll g (^)Q Ail\l\ ^UiiU “© 

5uii>SJl kjLj JA >SI ji JAIbJ SjLa :Exclusio n cVmm\l\ - © 

>si/i 4 lu9>5^) JjLo JLo! J^2r>u^ s Cyber threats aijAiH -© 



C^^yi nAqA / nliiuyi alai^l 


> -^dTbi)\ ftiftij a iUtm) 
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:CXuil\ cJ^lu3b dli 

c JMiSS o*ll) c) jIjSjJ y - \ 

. gTiTdi ) AtlS JlJkf _T 

. uIjLu 6\ jl yJ l£ _T 

. ^JUbdl Jjiwj jfeJk _t 
. ujJuVI lUk udjju 4Jbl2^ _o 
. Uyk Alb 1 Jb Uj(j JjLj Jlwjl j»JL£ J\ 
. UJjuVl ^Uulwt JLU 
■ 4>«i ji XUJjm 4llj£j UM< 



: &ujuV\ £* JUS- 


8 j-o >d-juaL>» oLo^Lcg ^9^*9 ^LS;( ^§JL^ * d^JLc 4 -^jj Ofi ^juj 

dlUL *■&- ^JLJI &^_ujJf gl 0 ntf ^Jx j^-SLj V — L^j j^-I d|Luu V — fijJLd 

,r\ .. 0 ^^Ld( 


«• * 



J >«5M Jj ^1 _Y 
l>£4l>JI Jljjl _A 

■W« 

Ojjiil jjihM 0*1^ jjSj 




A-A V^\\ 


y Ijil JinrttI (yl* ufi&f)l^yLLai 


: IJra^lt 5j\ \\ (x) tia^ A-a^lL&3 ^9? 


St -ait SjUaJI ^L.1 (✓) .Tir(r 


:djSn 


A-al^V* 

J 


( > 


(') 

»ji ubj^J jl jl <. 

( ) 

. \ a ~\>V 3 -a <J^La A Lj■ inillij <^y& ^*ZLj V 1 (jS.V»m 

(^) 

< ) 

y>*-a c 

(r) 

( ) 

.jV»V« ~t M A-adiluuxH £y* Yj >3 ~ ^3 

<*) 

( ) 

^ /J |\ JK^il (j-« AajLuX4^ 

( d ) 

< > 

^ A \V . 1 ^.^ \ ^ ^e .1 imS ^ — ■ ulw^ Ai^wi 

. JLujJu^IV 1 iailuij jjC- (jlajiLlj (ji ^aj 

C 1 ) 

( ) 

" \ jl q ^ <J Ja&i Jla. ^j^al 4 cJijjuU) c _ 5 _2 -lg> 1 x ^yg -1 l 3 - \\ 

. A_iC- LalL^V \ cZjI^^LsJ) j '^ 

( v ) 

( ) 

^ Jl^jlU <Li^yi jjl>* ^ aV< ^ A^rii £j) cJ 4 VI ^£^\3d Ijo^al 

. lA^^j *i*i ciLa (__>-eaLiJ\ 

(^) 

( ) 

. A-ajj^HSJV^ (JJLkdMj 2l&\£ l _ 9 ^ xti ^m ^ wj g-l *iV 1 

<M 

< > 

aJ dg 3 .!>j..^„r» fj A_ljJjIojIJ ^JL^ji^j) L^_j ..Ix^a^M.! A^Juj^aSiV t A 

^ 9 ? 

(' •) 



C^^yi aAqA / oUiuyi alai*I 


dv\^k\ tu».ViJ\ a Guilin lulj) 
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: <L5 -L La-a SjLiC' \\ <3-a£\ : 


-ic- (L ^ 


V—££ J**l\ 


. ^UlalLutiV) A o*i ^j^-a A aK ^iaj 


A-jjfrflj Vi vll A^ujV 


* a. * * 


H>^V' cr^ ^ c ?! 1 


4j c-iuaUil 


<^ 5-2 lg-J 



0 ) 



A_hUa. :^SUU 1 

JjLa. V^ cV^i; 1 a~>V1 -1^5 <£|>LJul ( \ ) 

/N !a-4^ 4j 3) ^-ic. Ja^V AiiJl 

. . JK^.t /-*y a 


iZ*£JL£t\ ( Y ) 
. <3jV «J 




Cau^Hl aAqA / dIjujIJI alai*I 


+ yUaaLdl dLLial«guLill «jJI Igiajj 
a Jl mm jUifllJI dhlg iialjdl « dLillg 


> —(^dCwk\ ftiftjj uu»\ij\ a KmviJi iuTm) 























































